10 POKE55,0:POKE56,160:CLR:REM TOP$A000
20 DV=PEEK(186):IFDV<8THENDV=8
30 PRINT"[147]":S$="    ":DIMLN$(42)
40 POKE53280,0:POKE53281,0
50 POKE53272,23:POKE198,0
100 PRINT"[147][153]  [193]NOTHER [205]IGHTY [204]OADSTAR [198]ONT [195]HARTER"
110 PRINT"      [208]ROGRAM BY [204]EE [206]OVAK IN 1997"
120 PRINT"[150]      ACTIVE KEYS FOR NEXT SCREEN"
130 PRINT"  WHILE SMALL PORTION OF CHART SHOWING "
140 PRINT"     [159][198]-[203]EYS[154] [193]LTER [209]UADRANTS"
150 PRINT"            CYCLES THROUGH VARIATIONS"
160 PRINT"          [159][208][154] [211]END TO [208]RINTER #4"
170 PRINT"          [159][209][154] [209]UIT TO [204][207][193][196][211][212][193][210]"
180 PRINT"          [159]_[154] [209]UIT TO [194][193][211][201][195]"
185 PRINT"[159]  [208]ROGRAM SENDS [208][197][212][193][211][195][201][201] STRINGS PLUS:"
190 PRINT"  -CHR$(27,65,7,13) FOR [154][197]PSON PRINTERS"
200 PRINT"  -CHR$(8,13,15) FOR [154][195]OMMODORE PRINTERS"
220 PRINT"  -CHR$(8,13,15,27,60) FOR THE [154][205][208][211]-1200"
230 PRINT"              [158][208]RESS A [203]EY!"
240 PRINT"[158] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
250 PRINT"[157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][189]";
260 PRINT"[221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
270 GETA$:IFA$=""THEN270
280 PRINT"[147]"
290 A=1:B=1:C=1:D=1:REM QUADRANT VALUES
292 GOSUB1000:GOSUB2000:GOSUB2040:GOSUB2140:GOSUB2360:GOSUB2580
300 :
301 REM SHOW CHART
302 :
310 PRINT"";
320 FORO=1TO18:PRINTLEFT$(LN$(O),19),RIGHT$(LN$(O),19):NEXT
900 GETA$:IFA$="P"ORA$="Q"ORA$="_"THEN4000
905 Z=0
910 IFA$="[133]"THENA=A+1:Z=1:IFA=4THENA=1
915 IFA$="[137]"THENA=A-1:Z=1:IFA=0THENA=3
920 IFA$="[134]"THENB=B+1:Z=2:IFB=6THENB=1
925 IFA$="[138]"THENB=B-1:Z=2:IFB=0THENB=5
930 IFA$="[135]"THENC=C+1:Z=3:IFC=6THENC=1
935 IFA$="[139]"THENC=C-1:Z=3:IFC=0THENC=5
940 IFA$="[136]"THEND=D+1:Z=4:IFD=6THEND=1
945 IFA$="[140]"THEND=D-1:Z=4:IFD=0THEND=5
950 ONZGOSUB2040,2140,2360,2580
960 ONZGOSUB1990,2110,2270,2490
970 IFZTHEN300
980 GOTO900
999 PRINT"":POKE198,0:END
1000 T1$   ="[176][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178]"
1010 T2$   ="[192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][174]"
1020 B1$(1)="[173][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177]"
1030 B2$(1)="[192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][189]"
1040 B1$(2)="[173][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177]"
1050 B2$(2)="[192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][189]"
1060 B1$(3)="[173][192][177][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192]"
1070 B2$(3)="[192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][189]"
1100 X1$(1)="[221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
1110 X2$(1)=" [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
1120 X1$(2)="[221]@[221]A[221]B[221]C[221]D[221]E[221]F[221]G[221]H[221]I[221]J[221]K[221]L[221]M[221]N[221]O[221]"
1130 X2$(2)="P[221]Q[221]R[221]S[221]T[221]U[221]V[221]W[221]X[221]Y[221]Z[221][[221]\[221]][221]^[221]_[221]"
1140 X1$(3)="[221] [221]![221]'[221]#[221]$[221]%[221]&[221]'[221]([221])[221]*[221]+[221],[221]-[221].[221]/[221]"
1150 X2$(3)="0[221]1[221]2[221]3[221]4[221]5[221]6[221]7[221]8[221]9[221]:[221];[221]<[221]=[221]>[221]?[221]"
1160 X1$(4)="[221][192][221][193][221][194][221][195][221][196][221][197][221][198][221][199][221][200][221][201][221][202][221][203][221][204][221][205][221][206][221][207][221]"
1170 X2$(4)="[208][221][209][221][210][221][211][221][212][221][213][221][214][221][215][221][216][221][217][221][218][221][219][221] [221][221][221] [221] [221]"
1180 X1$(5)="[221] [221]A[221]B[221]C[221]D[221]E[221]F[221]G[221]H[221]I[221]J[221]K[221]L[221]M[221]N[221]O[221]"
1190 X2$(5)="P[221]Q[221]R[221]S[221]T[221]U[221]V[221]W[221]X[221]Y[221]Z[221] [221] [221] [221] [221] [221]"
1200 X1$(6)="[221] [221]![221]'[221]#[221]$[221]%[221]&[221]'[221]([221])[221]*[221]+[221],[221]-[221].[221]/[221]"
1210 X2$(6)="0[221]1[221]2[221]3[221]4[221]5[221]6[221]7[221]8[221]9[221]:[221] [221] [221] [221] [221] [221]"
1220 X1$(7)="[221] [221][193][221][194][221][195][221][196][221][197][221][198][221][199][221][200][221][201][221][202][221][203][221][204][221][205][221][206][221][207][221]"
1230 X2$(7)="[208][221][209][221][210][221][211][221][212][221][213][221][214][221][215][221][216][221][217][221][218][221] [221] [221] [221] [221] [221]"
1240 X1$(8)="[221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]"
1250 X2$(8)="   [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]"
1260 X1$(9)="[221] [221] [221]     [221]     [221]     [221]     [221]    "
1270 X2$(9)=" [221]     [221]     [221]     [221]     [221]     [221]"
1280 X1$(0)="[221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221][171][221] [221][173][221][174][221] [221]"
1290 X2$(0)="[176][221][177][221][178][221][179][221] [221] [221] [221] [221] [221] [221] [221] [221] [221][189][221] [221] [221]"
1300 Y1$(1)="[171][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219]"
1310 Y2$(1)="[192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]"
1320 Y1$(2)="[171][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219]"
1330 Y2$(2)="[192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][179]"
1340 Y1$(3)="[171][192][219][192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177]"
1350 Y2$(3)="[192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177][192][179]"
1400 Y1$(4)="[171][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219]"
1410 Y2$(4)="[192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][179]"
1420 Y1$(5)="[171][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219]"
1430 Y2$(5)="[192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][179]"
1440 Y1$(6)="[171][192][178][192][219][192][192][192][177][192][178][192][177][192][192][192][219][192][192][192][177][192][178][192][177][192][192][192][219][192][192][192][177]"
1450 Y2$(6)="[192][178][192][177][192][192][192][219][192][192][192][177][192][178][192][177][192][192][192][219][192][192][192][177][192][178][192][177][192][192][192][179]"
1500 Y1$(7)="[171][192][219][192][219][192][178][192][178][192][219][192][178][192][178][192][219][192][178][192][178][192][219][192][178][192][178][192][219][192][178][192][178]"
1510 Y2$(7)="[192][219][192][178][192][178][192][219][192][178][192][178][192][219][192][178][192][178][192][219][192][178][192][178][192][219][192][178][192][178][192][179]"
1520 Y1$(8)="[171][192][177][192][219][192][192][192][178][192][177][192][178][192][192][192][219][192][192][192][178][192][177][192][178][192][192][192][219][192][192][192][178]"
1530 Y2$(8)="[192][177][192][178][192][192][192][219][192][192][192][178][192][177][192][178][192][192][192][219][192][192][192][178][192][177][192][178][192][192][192][179]"
1540 Y1$(9)="[171][192][219][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192]"
1550 Y2$(9)="[192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][179]"
1600 UH$(1)="[221]*[146][221]A[146][221]B[146][221]C[146][221]D[146][221]E[146][221]F[146][221]G[146][221]H[146][221]I[146][221]J[146]"
1610 UH$(2)="[221]K[146][221]L[146][221]M[146][221]N[146][221]O[146][221]P[146][221]Q[146][221]R[146][221]S[146][221]T[146][221]U[146]"
1620 UH$(3)="[221]V[146][221]W[146][221]X[146][221]Y[146][221]Z[146]"
1630 UH$(4)="[221]+[146][221]-[221]-[146][221]^[146][221]*[221]"
1640 UH$(5)="[221] [146][221]K[221]I[221]T[221]@[221]G[221]+[221]M[221]\[221]\[146][221]N[221]Q[221]D[221]Z[221]S[221]P"
1650 UH$(6)="[221]A[221]E[221]R[221]W[221]H[221]J[221]L[221]Y[221]U[221]O[221]@[146][221]F[221]C[221]X[221]V[221]B[221]"
1990 :
1991 RETURN
1992 :
2000 LN$(1)="     0 1 2 3 4 5 6 7 8 9 A B C D E F"
2010 LN$(1)=LN$(1)+" 0 1 2 3 4 5 6 7 8 9 A B C D E F     "
2020 LN$(2)="    [176][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192]"
2030 LN$(2)=LN$(2)+"[178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][174]    "
2034 :
2035 RETURN
2036 :
2040 IFA=3THENLN$(3)=" 0/1"+X1$(1)+X2$(1)+"+0  "
2050 IFA=1THENLN$(3)=" 0/1"+X1$(2)+X2$(2)+"+0  "
2060 IFA=2THENLN$(3)=" 0/1"+X1$(5)+X2$(5)+"+0  "
2070 LN$(4)=S$+Y1$(1)+Y2$(1)+S$
2080 IFA=3THENLN$(5)=" 2/3"+X1$(1)+X2$(1)+"+32 "
2090 IFA=1THENLN$(5)=" 2/3"+X1$(3)+X2$(3)+"+32 "
2100 IFA=2THENLN$(5)=" 2/3"+X1$(6)+X2$(6)+"+32 "
2110 IFB<4THENLN$(6)=S$+Y1$(1)+Y2$(1)+S$
2120 IFB=4THENLN$(6)=S$+Y1$(2)+Y2$(2)+S$
2130 IFB=5THENLN$(6)=S$+Y1$(3)+Y2$(3)+S$
2134 :
2135 RETURN
2136 :
2140 IFB=3THENLN$(7)=" 4/5"+X1$(1)+X2$(1)+"+64 "
2150 IFB=1THENLN$(7)=" 4/5"+X1$(4)+X2$(4)+"+64 "
2160 IFB=2THENLN$(7)=" 4/5"+X1$(7)+X2$(7)+"+64 "
2170 IFB=4THENLN$(7)=" 4/5"+X1$(8)+X2$(8)+"+64 "
2180 IFB=5THENLN$(7)=" 4/5"+X1$(9)+X2$(9)+"+64 "
2190 IFB<4THENLN$(8)=S$+Y1$(1)+Y2$(1)+S$
2200 IFB=4THENLN$(8)=S$+X1$(8)+X2$(8)+S$
2210 IFB=5THENLN$(8)=S$+"[171][192][219][192][179]"+RIGHT$(X1$(9),28)+X2$(9)+S$
2220 IFB=3THENLN$(9)=" 6/7"+X1$(1)+X2$(1)+"+96 "
2230 IFB=1THENLN$(9)=" 6/7"+X1$(0)+X2$(0)+"+96 "
2240 IFB=2THENLN$(9)=" 6/7"+X1$(1)+X2$(1)+"+96 "
2250 IFB=4THENLN$(9)=" 6/7"+X1$(8)+X2$(8)+"+96 "
2260 IFB=5THENLN$(9)=" 6/7"+X1$(9)+X2$(9)+"+96 "
2270 IFB<4ANDC<4THENLN$(10)=S$+Y1$(1)+Y2$(1)+S$
2280 IFB<4ANDC=4THENLN$(10)=S$+Y1$(2)+Y2$(2)+S$
2290 IFB<4ANDC=5THENLN$(10)=S$+Y1$(3)+Y2$(3)+S$
2300 IFB=4ANDC<4THENLN$(10)=S$+Y1$(4)+Y2$(4)+S$
2310 IFB=4ANDC=4THENLN$(10)=S$+Y1$(5)+Y2$(5)+S$
2320 IFB=4ANDC=5THENLN$(10)=S$+Y1$(6)+Y2$(6)+S$
2330 IFB=5ANDC<4THENLN$(10)=S$+Y1$(7)+Y2$(7)+S$
2340 IFB=5ANDC=4THENLN$(10)=S$+Y1$(8)+Y2$(8)+S$
2350 IFB=5ANDC=5THENLN$(10)=S$+Y1$(9)+Y2$(9)+S$
2354 :
2355 RETURN
2356 :
2360 IFC=3THENLN$(11)=" 8/9"+X1$(1)+X2$(1)+"+128"
2370 IFC=1THENLN$(11)=" 8/9"+X1$(2)+X2$(2)+"+128"
2380 IFC=2THENLN$(11)=" 8/9"+X1$(5)+X2$(5)+"+128"
2390 IFC=4THENLN$(11)=" 8/9"+X1$(8)+X2$(8)+"+128"
2400 IFC=5THENLN$(11)=" 8/9"+X1$(9)+X2$(9)+"+128"
2410 IFC<4THENLN$(12)=S$+Y1$(1)+Y2$(1)+S$
2420 IFC=4THENLN$(12)=S$+X1$(8)+X2$(8)+S$
2430 IFC=5THENLN$(12)=S$+"[171][192][219][192][179]"+RIGHT$(X1$(9),28)+X2$(9)+S$
2440 IFC=3THENLN$(13)=" A/B"+X1$(1)+X2$(1)+"+160"
2450 IFC=1THENLN$(13)=" A/B"+X1$(3)+X2$(3)+"+160"
2460 IFC=2THENLN$(13)=" A/B"+X1$(6)+X2$(6)+"+160"
2470 IFC=4THENLN$(13)=" A/B"+X1$(8)+X2$(8)+"+160"
2480 IFC=5THENLN$(13)=" A/B"+X1$(9)+X2$(9)+"+160"
2490 IFC<4ANDD<4THENLN$(14)=S$+Y1$(1)+Y2$(1)+S$
2500 IFC<4ANDD=4THENLN$(14)=S$+Y1$(2)+Y2$(2)+S$
2510 IFC<4ANDD=5THENLN$(14)=S$+Y1$(3)+Y2$(3)+S$
2520 IFC=4ANDD<4THENLN$(14)=S$+Y1$(4)+Y2$(4)+S$
2530 IFC=4ANDD=4THENLN$(14)=S$+Y1$(5)+Y2$(5)+S$
2540 IFC=4ANDD=5THENLN$(14)=S$+Y1$(6)+Y2$(6)+S$
2550 IFC=5ANDD<4THENLN$(14)=S$+Y1$(7)+Y2$(7)+S$
2560 IFC=5ANDD=4THENLN$(14)=S$+Y1$(8)+Y2$(8)+S$
2570 IFC=5ANDD=5THENLN$(14)=S$+Y1$(9)+Y2$(9)+S$
2574 :
2575 RETURN
2576 :
2580 IFD=3THENLN$(15)=" C/D"+X1$(1)+X2$(1)+"+192"
2590 IFD=1THENLN$(15)=" C/D"+X1$(4)+X2$(4)+"+192"
2600 IFD=2THENLN$(15)=" C/D"+X1$(7)+X2$(7)+"+192"
2610 IFD=4THENLN$(15)=" C/D"+X1$(8)+X2$(8)+"+192"
2620 IFD=5THENLN$(15)=" C/D"+X1$(9)+X2$(9)+"+192"
2630 IFD<4THENLN$(16)=S$+Y1$(1)+Y2$(1)+S$
2640 IFD=4THENLN$(16)=S$+X1$(8)+X2$(8)+S$
2650 IFD=5THENLN$(16)=S$+"[171][192][219][192][179]"+RIGHT$(X1$(9),28)+X2$(9)+S$
2660 IFD=3THENLN$(17)=" E/F"+X1$(1)+X2$(1)+"+224"
2670 IFD=1THENLN$(17)=" E/F"+X1$(0)+X2$(0)+"+224"
2680 IFD=2THENLN$(17)=" E/F"+X1$(1)+X2$(1)+"+224"
2690 IFD=4THENLN$(17)=" E/F"+X1$(8)+X2$(8)+"+224"
2700 IFD=5THENLN$(17)=" E/F"+X1$(9)+X2$(9)+"+224"
2710 IFD<4THENLN$(18)=S$+B1$(1)+B2$(1)+S$
2720 IFD=4THENLN$(18)=S$+B1$(2)+B2$(2)+S$
2730 IFD=5THENLN$(18)=S$+B1$(3)+B2$(3)+S$
2990 :
2991 RETURN
2992 :
3000 LN$(19)=S$+" 0 1 2 3 4 5 6 7 8 9 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2"
3010 LN$(19)=LN$(19)+" 3 3 "+S$
3020 LN$(20)=S$+"                     0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9"
3030 LN$(20)=LN$(20)+" 0 1 "+S$
3040 LN$(21)=" "
3050 LN$(22)=LN$(2)
3060 LN$(23)=" 0/1"+X1$(2)+X2$(2)+"+0  "
3070 LN$(24)=S$+Y1$(1)+Y2$(1)+S$
3080 LN$(25)=" 2/3"+X1$(3)+X2$(3)+"+32 "
3090 LN$(26)=S$+Y1$(1)+Y2$(1)+S$
3100 LN$(27)=" 4/5"+UH$(1)+UH$(2)+UH$(3)+UH$(4)+"+64 "
3110 LN$(28)=S$+Y1$(1)+Y2$(1)+S$
3120 LN$(29)=" 6/7"+UH$(5)+UH$(6)+"+96 "
3130 LN$(30)=S$+Y1$(1)+Y2$(1)+S$
3140 LN$(31)=" 8/9"+X1$(2)+X2$(2)+"+128"
3150 LN$(32)=S$+Y1$(1)+Y2$(1)+S$
3160 LN$(33)=" A/B"+X1$(3)+X2$(3)+"+160"
3170 LN$(34)=S$+Y1$(1)+Y2$(1)+S$
3180 LN$(35)=" C/D"+UH$(1)+UH$(2)+UH$(3)+UH$(4)+"+192"
3190 LN$(36)=S$+Y1$(1)+Y2$(1)+S$
3200 LN$(37)=" E/F"+UH$(5)+UH$(6)+"+224"
3210 LN$(38)=S$+B1$(1)+B2$(1)+S$
3220 LN$(39)=LN$(1)
3230 LN$(41)=" "
3240 LN$(42)="              BASIC KEYS     SHIFTED KEYS[146]    (COMMODORE KEYS)"
3990 RETURN
4000 :
4001 REM PRINT OR QUIT?
4002 :
4010 IFA$="_"THENPOKE198,0:END:REM QUIT
4020 IFA$="Q"THEN40000:REM LOADSTAR
4024 :
4025 REM USER WANTS TO PRINT!
4026 :
4030 GOSUB3000:REM GET 2ND CHART INTO $
4040 PRINT" [197][152]PSON, [195][152]OMMODORE, OR [205][152][208][211]-1200 ? [159]";
4050 GETA$:IFA$<>"E"ANDA$<>"C"ANDA$<>"M"THEN4050
4052 G$="[197]PSON"
4054 IFA$="C"THENG$="[195]OMMIE"
4056 IFA$="M"THENG$="[205][208][211]..."
4058 PRINTG$
4060 PRINT" [152][208]RINT A LOOKUP CHART ALSO ? Y[152]/N[152] [159]";
4070 GETB$:IFB$<>"Y"ANDB$<>"N"THEN4070
4075 G$="NO":IFB$="Y"THENG$="YES"
4080 PRINTG$
4090 PRINT"[153] * [199]ET PRINTER 4 READY AND HIT [210][197][212][213][210][206] *"
4095 GETC$:IFC$<>CHR$(13)THEN4095
4100 :
4101 REM ESCAPE CODES FOR PRINTER (PJ$)
4102 :
4110 IFA$="C"THENPJ$=CHR$(8)+CHR$(13)+CHR$(15):REM COMMODORE
4120 IFA$="E"THENPJ$=CHR$(27)+CHR$(65)+CHR$(7)+CHR$(13):REM EPSON
4130 IFA$="M"THENPJ$=CHR$(8)+CHR$(13)+CHR$(15)+CHR$(27)+"<":REM LEE'S MPS-1200
4160 REM ------------------------------
4170 REM CHR$(27,65,7) IS 7/72' SPACING
4180 REM CHR$(8,15) IS BIT-MODE ON/OFF
4190 REM CHR$(27)+"<" IS UNIDIRECTIONAL
4200 :
4201 REM PRINTER 4 DETECT
4202 :
4210 CLOSE4:OPEN4,4,7:CLOSE4
4220 IFSTTHENOPEN4,3:GOTO4300
4230 OPEN4,4,7
4300 :
4301 REM PRINT IT OUT!
4302 REM A$: C=COMMIE E=EPSON M=MPS1200
4303 REM B$: Y=ALL N=STOP AFTER LINE 20
4304 :
4310 FORO=1TO42
4330 PRINT#4,"    "+LN$(O);PJ$;
4350 IFO=20ANDB$="N"THEN4400
4390 NEXT
4400 IFA$="C"ORA$="M"THENPRINT#4
4410 IFA$="E"THENPRINT#4,CHR$(27)"@"
4420 CLOSE4
4444 GOTO50:REM BACK TO TITLE SCREEN!
39997 :
39998 RETURN TO LOADSTAR
39999 :
40000 FORI=8TO29:POKE820+I,I:NEXT:IFDV>8ANDDV<30THENPOKE828,DV:POKE820+DV,8
40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030
40020 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
40030 FORJ=8TO29:I=PEEK(820+J):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:RETURN
40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
63998 END
63999 A$="TEXT CHARTER":OPEN15,8,15,"S0:"+A$:CLOSE15:SAVEA$,8